home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / DDJMAG / DDJ9005.ZIP / AYERS.ZIP / RNDMNMBR.CLS < prev   
Text File  |  1990-02-20  |  453b  |  28 lines
  1.  
  2. Object subclass: #RandomNumber
  3.   instanceVariableNames: ''
  4.   classVariableNames: 
  5.     'Seed '
  6.   poolDictionaries: '' !
  7.  
  8. !RandomNumber class methods !
  9.  
  10. from:min to:max
  11.     ^(self new \\ (max - min + 1)) + min.!
  12.  
  13. new
  14.     |n|
  15.     Seed isNil ifTrue:[self reset].
  16.     n := Seed.
  17.     Seed := (Seed * 263 + 30011) bitAnd:16r7FFF.
  18.     ^n.!
  19.  
  20. randomize
  21.     Seed := Time millisecondClockValue bitAnd:16r7FFF.!
  22.  
  23. reset
  24.     Seed := 0.! !
  25.  
  26.  
  27. !RandomNumber methods ! !
  28.